home *** CD-ROM | disk | FTP | other *** search
/ NASA Climatology Interdisciplinary Data Collection / NASA Climatology Interdisciplinary Data Collection - Disc 4.iso / software / grads / lib / functions / moinc.gf < prev    next >
Text File  |  1994-02-16  |  336b  |  17 lines
  1. function moinc(bt,moinc)
  2. *
  3. *  increment a month/year dtg by a month
  4. *
  5.   moname='jan feb mar apr may jun jul aug sep oct nov dec'
  6.   curyr=substr(bt,4,2)
  7.   curmo=substr(bt,1,3)
  8.   i=1
  9.   while (curmo!=subwrd(moname,i));i=i+1;endwhile
  10.   i=i+moinc
  11.   if(i>12) 
  12.     curyr=curyr+1
  13.     i=i-12
  14.   endif
  15.   monew=subwrd(moname,i)%curyr
  16. return(monew)
  17.